home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Prof page II type.adf
/
Install
/
HD_Install
< prev
next >
Wrap
AmigaDOS Script File
|
1990-08-10
|
2KB
|
66 lines
.KEY srcName/A,srcDir/A,dest
.BRA {
.KET }
; Install_Font - Install Compugraphic fonts onto a hard drive.
;
; Inputs:
; dest Directory to install Font into
; srcName Name of font to install
; srcDir Directory containing font
;
; If first arg is "all", execute :Install/CopyAllFonts
; to install all of the fonts on the diskette.
;
; Copy SetUpForInstall into RAM:, to reduce disk swaps while it executes.
copy Type:Install/SetUpForInstall RAM:GD_InstSetupFile
execute RAM:GD_InstSetupFile winch
delete >nil: RAM:GD_InstSetupFile ; Reclaim a bit of memory
; Default (success) termination message.
echo >GD_TempDir:Message " Installation complete."
;
; Make sure that the destination exists and is a directory
;
if not exists "{dest$CGFonts:}"
echo >GD_TempDir:Message "*N*E[;33m Couldn't find drawer {dest$CGFonts:}*E[m*N"
skip HDWrapup
endif
instutil isdir "{dest$CGFonts:}"
if warn
echo >GD_TempDir:Message "*N*E[;33m {dest$CGFonts:} is not a drawer!*E[m*N"
skip HDWrapup
endif
assign GD_Dest: "{dest$CGFonts:}"
execute GD_SourceDisk:Install/UpdateUtilities
if not $GDIRC eq "ok"
skip HDWrapup
endif
echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
; Initialize free-space counter.
instutil >GD_TempDir:free freespace GD_Dest:
instutil -eGDIFREE join GD_TempDir:free
if "{srcName}" eq "all"
execute GD_SourceDisk:Install/CopyAllFonts
else
execute GD_SourceDisk:Install/InsFont "{srcName}" "{srcDir}"
endif
;
; Clean up
;
lab HDWrapup
echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
instutil join GD_TempDir:Message
execute GD_SourceDisk:Install/CleanUpFromInstall